OpenEdge Development:<br />Programming Interfaces has-DB-option function

Release 10.1A: OpenEdge Development:
Programming Interfaces

has-DB-option function

Look for a given option in the database information string. The database information string is returned by the get-complete-dbname-list procedure, get-dbname-list procedure, and src/auditing/_get-db-list.p. The list of possible entries is defined in src/auditing/include/_aud-std.i.
Returns: LOGICAL
Parameters:
INPUT pcDbInfo AS CHARACTDER
The database information string.
INPUT pcDbOption AS CHARACTER
String containing the entry to look for.
Example:
Define variable cList as char. 
Define variable cdbInfo as char. 
Define variable iLoop as int. 
Define variable cTemp as char. 
{auditing/include/_aud-utils.i} 
Run get-dbname-list IN hAuditUtils (output cList). 
DO iLoop = 1 TO NUM-ENTRIES(cList, CHR(1)): 
           ASSIGN cdbInfo = ENTRY(iLoop, cList, CHR(1)) 
                         cTemp = DYNAMIC-FUNCTION('get-DB-Name' 
IN  hAuditUtils, cdbInfo). 
                   IF DYNAMIC-FUNCTION('has-DB-option' IN  hAuditUtils, 
cDbInfo, "READ-ONLY":U)  THEN 
                        Message "Database " cTemp " is read-only". 
End. 